﻿Module CharacterCreation
    Public Sub DetermineLoginName(ByVal txt As String, ByVal nputlen As Short)
        'check to see if the players save file exists before asking for a password or assuming
        'that it's a new character
        If My.Computer.FileSystem.FileExists(MainProgram.DirPlayer + MainProgram.CapitalizeEachWord(LTrim(RTrim(txt))) + ".xml") = True Then
            MainProgram.User_Name = LTrim(RTrim(txt))
            txt = ""
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/ghmm../G" + Chr(34))
            LoadPlayer.LoadPlayer(1)
            MainProgram.SND("/RYour Password Courtesy of Admin-level: /r" + MainProgram.User_Password)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWelcome back! Whats the password?/G" + Chr(34))
            MainProgram.State = "LoginPass"
        Else 'turns out the save file was not found, begin character creation process
            MainProgram.NewPlayer = True
        End If

        If LTrim(RTrim(txt)) <> "" And MainProgram.User_Name = "Lythantos" And MainProgram.State <> "LoginPass" Then
            MainProgram.User_Name = LTrim(RTrim(txt))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + LTrim(RTrim(txt)) + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("yes", 1, nputlen) And MainProgram.User_Name <> "" And MainProgram.State <> "LoginPass" Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWelcome, you're new here, what password would you like?/G" + Chr(34))
            MainProgram.SND("/c[Enter A Password For Your Character]")
            MainProgram.State = "LoginPass"
        ElseIf txt = Mid("no", 1, nputlen) And MainProgram.User_Name <> "" And MainProgram.State <> "LoginPass" Then
            MainProgram.State = "LoginName"
            MainProgram.User_Name = "Lythantos"
            MainProgram.User_Password = "N/A"
            MainProgram.UserPasswordLastTry = False
            MainProgram.NewPlayer = False
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gOh, okay, then what name would you like?/G" + Chr(34))
        End If
    End Sub
    Public Sub DetermineLoginPass(ByVal txt As String, ByVal nputlen As Short)
        If MainProgram.NewPlayer <> True Then
            MainProgram.UserLocation_CurrentMap = "RuinsOfVharmas" 'if the game was just loaded there isn't a current map, so set one so it can be replaced with the loaded one
            If txt = MainProgram.User_Password Then
                MainProgram.SND("/gThe skinny old man smiles and allows you to enter the nexus.")
                MainProgram.SND("/gLight blinds you for a moment as you step through the nexus you hear it fluctuate for a second.")
                MainProgram.SND("/gYour eyes open and try to focus, you appear to be standing inside of a nexus now, staring into a city.")
                MainProgram.FormOpen = True
                If MainProgram.UserLocation_EntranceMap <> "" Then
                    MainProgram.DirMaps = Replace(MainProgram.DirMaps, MainProgram.UserLocation_CurrentMap, MainProgram.UserLocation_EntranceMap)
                    MainProgram.MapData = MainProgram.GetFileContents(MainProgram.DirMaps)
                    MainProgram.DirMapCur = Replace(MainProgram.DirMaps, "Base.TG", ".TG")
                    MainProgram.CurMapData = MainProgram.GetFileContents(MainProgram.DirMapCur)
                    MainProgram.UserLocation_CurrentMap = MainProgram.UserLocation_EntranceMap
                Else
                    MainProgram.SND("NO MAP")
                End If
                MainProgram.UpdateBars()
                MainProgram.State = "Open"
                PlayMusic("EnvironmentMusic")
                MainProgram.UpdateBars()
                LoadSector.LoadSector(MainProgram.UserLocation_EntranceSector, 1)
            Else
                If MainProgram.UserPasswordLastTry = False Then
                    MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gThat didn't sound right, could you repeat that?/G" + Chr(34))
                    MainProgram.UserPasswordLastTry = True
                Else
                    MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gI'm sorry but I can't let you through with that password./G" + Chr(34))
                    MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gLets just pretend that didn't happen./G" + Chr(34))
                    MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWho's there?/G" + Chr(34))
                    MainProgram.State = "LoginName"
                    MainProgram.User_Name = "Lythantos"
                    MainProgram.User_Password = "N/A"
                    MainProgram.UserPasswordLastTry = False
                End If
            End If
        End If
        If LTrim(RTrim(txt)) <> "" And MainProgram.User_Password = "N/A" And MainProgram.NewPlayer = True And MainProgram.State <> "Open" Then
            MainProgram.User_Password = LTrim(RTrim(txt))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gOkay, why don't you repeat that just to make sure we got that right./G" + Chr(34))
        ElseIf txt = MainProgram.User_Password And MainProgram.State <> "Open" Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gGreat! What class are you?/G" + Chr(34))
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the class list")
            MainProgram.SND("/z Info TheClass")
            MainProgram.SND("/z    The above command will give information on a specific class.")
            MainProgram.SND("/c [CLASS]      [Rank II]    [Rank III]   [Rank IV]    [Rank V]")
            MainProgram.SND("/c /GPriest/c       Deacon       Archdeacon   Bishop       Archbishop")
            MainProgram.SND("/c /GWoodsman/c     Tracker      Ranger       Druit        Druid")
            MainProgram.SND("/c /GGravedigger/c  Ritualist    Warlock      Necromancer  Liche")
            MainProgram.SND("/c /GMageling/c     Mage         Wizard       Magus        Supreme Magi")
            MainProgram.SND("/c /GHermit/c       Spellbreaker Soulreaver   Demi-Psion   Psion")
            MainProgram.SND("/c /GElementalist/c Nihilist     Sorceror     Arcanist     Myrmidon")
            MainProgram.SND("/c /GHeadhunter/c   Mercenary    Savant       Sexton       Warlord")
            MainProgram.SND("/c /GPlainsman/c    Barbarian    Avenger      Warmonger    Berserker")
            MainProgram.SND("/c /GPickpocket/c   Rogue        Thief        Assassin     Shadow Walker")
            MainProgram.SND("/c /GPage/c         Squire       Knight       Centurion    Templar")
            MainProgram.SND("/c /GScout/c        Nu-Dosai     Nubo-Medusai Ado-Mendusai Saedu-Morusai")
            MainProgram.SND("/c /GRunescribe/c   Draconian    Paek'oth     Daek'oth     Tzaek'oth")
            MainProgram.SND("/c /GMonk/c         Dosai        Medusai      Mendusai     Morusai")
            MainProgram.SND("/c /GMinstrel/c     Bard         Harlequin    Bladesinger  Blademaster")
            MainProgram.State = "LoginClass"
        ElseIf MainProgram.UserPasswordLastTry = False Then
            If MainProgram.State <> "Open" And MainProgram.State <> "LoginName" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gHmm...no...that was wrong, what password would you like?/G" + Chr(34))
                MainProgram.User_Password = ""
            End If
        End If
    End Sub
    Public Sub DetermineLoginClass(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("info priest", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA Priest grows through a well organized foundation of beliefs and political structure, and bases much of his authority to secure religious structure amongst his people. A priest is unfamiliar with combat and is likewise extremely skilled in politics and healing the wounded and sick. Their primary stat is CHA &  their secondary, INT.")
        ElseIf txt = Mid("info woodsman", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA Woodsman has little need for society and its petty quanderings, and instead relies on his intuition and well-versed knowledge of nature to procure the needed inertia to modulate any outcome of a battle or encounter. Some druids form basic communication skills depending on their background but lack the necessary skills to effectively gather sufficient information or persuade and develop constructive insight on civilization-based problems. Their primary stat is WIS & secondary, CON.")
        ElseIf txt = Mid("info gravedigger", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA gravedigger feels the need to expand his knowledge of a mostly unknown and mystic subject of death. They sometimes find that pain can be delightful and relish their own death, but would hope that surely it could be strung out a bit longer if possible so they could assess its many developments upon the way. Gravediggers can be somewhat social at times, but it isn't uncommon to see a hermetic necromancer. Their primary stat is INT & secondary, CHA.")
        ElseIf txt = Mid("info mageling", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cMages form a well-structured society of knowledge harbingers and socialites. Mages form colleges and go throughout life and their travels always looking for another piece of information that they know nothing about. There is little they would not delve their fingers on except the forbidden art of necromancy. Their primary stat is INT & secondary, WIS.")
        ElseIf txt = Mid("info hermit", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cHermits live always curious about the many weaves they can see and distinguish amongst the world. All elemental weaves, spirit, draconian sub-elemental magic is assessable to them, and with all the knowledge in the world there is still more meaning, a question that begs the quandering of their feeble brains. They search long and wide for questions, not answers, something they cannot solve. Their primary stat is WIS & secondary, INT.")
        ElseIf txt = Mid("info elementalist", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cElementalists emblazon themselves with powerful elemental auras to protect themselves from enemies. Elementalists are chaotic mages, their magic naturally occurring and in much greater power, but less control. They are warriors of a rare kind and relish the chaotic part of nature, the systematic pseudo-meme a leech on the real world to humor their imagination. Their primary stat is STR & secondary, INT.")
        ElseIf txt = Mid("info headhunter", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cHeadhunters are most prominent warriors who find little difficulty in disposing of thieves and law-breakers. They use the shadows to hide and break their opponents, and give orders easily to others forming controlled combat situations. They develop great authority quickly and at times can be an extension of the law itself. Their primary stat is STR & secondary, CHA.")
        ElseIf txt = Mid("info plainsman", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cPlainsmen are the warriors of the real world, well-versed in natural combat with any weapon and with little remorse or tactical stipulations. Plainsmen have simple concepts of yes or no, live or die, and think little of consequences moreas the basic reason and basis of survival. Their primary stat is STR & secondary, DEX.")
        ElseIf txt = Mid("info pickpocket", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cPickpockets are simply the thieves. They think around the corner, they are aware at all times, they have luck, and live for pleasure and think little of consequences of bad luck, claiming skill bring them further anyways. Pickpockets are a rare breed in the law-making cities of the new world, but are a remnant of history and fade in and out of the shadows, always there, but rarely seen. Their primary stat is DEX & secondary, LUC.")
        ElseIf txt = Mid("info page", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cPages are well-versed in armor and protection. They are defenders of their cause, whatever it may be and are fully capable if any one person is, to stand up to the strongest foe with the smallest amount of effort. They protect for it is just to value others before yourself. Their primary stat is STR & secondary, CON.")
        ElseIf txt = Mid("info scout", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cScouts are guardians of monks, and allow monks to live and reside peacefully without slight of temperament. Scouts are empty-minded, warriors of wind, quickly dispatching the enemy and meditating upon battle. Scouts are of no emotion. Their primary stat is DEX & secondary, CHA.")
        ElseIf txt = Mid("info runescribe", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cRunescribes breath the arcane magic of the dragons and gods into runes, they see the make-up of nature beyond the natural weaves into something more delicate and precise. They are feared greatly and demand great respect by all. They are a dying breed of warriors who speak little because their presence speaks for them. Their primary stat is WIS & secondary, CHA.")
        ElseIf txt = Mid("info monk", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cPeaceful warriors who battle without weapons and are martially biased to avoid combat if at all possible. Monks relish peace and will see to it at sometimes all means they deem necessary. Their primary stat is WIS & secondary, DEX.")
        ElseIf txt = Mid("info minstrel", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cMinstrels bring the harmony of music and lilting melodies to the battlefield unconventionally to boost the morale of their comrades or later in a much more discrete and unfathomable way, battle. Minstrels are happy and are the livelier bunch who most often then not can pull a losing battle in the opposite direction with merely their presence. They are the support strings of any group and should never be considered less then fully capable warriors as well. Their primary stat is CHA & secondary, LUC.")
        ElseIf txt = Mid("information", 1, nputlen) Then
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the class list")
            MainProgram.SND("/z Info TheClass")
            MainProgram.SND("/z    The above command will give information on a specific class.")
            MainProgram.SND("/c [CLASS]      [Rank II]    [Rank III]   [Rank IV]    [Rank V]")
            MainProgram.SND("/c /GPriest/c       Deacon       Archdeacon   Bishop       Archbishop")
            MainProgram.SND("/c /GWoodsman/c     Tracker      Ranger       Druit        Druid")
            MainProgram.SND("/c /GGravedigger/c  Ritualist    Warlock      Necromancer  Liche")
            MainProgram.SND("/c /GMageling/c     Mage         Wizard       Magus        Supreme Magi")
            MainProgram.SND("/c /GHermit/c       Spellbreaker Soulreaver   Demi-Psion   Psion")
            MainProgram.SND("/c /GElementalist/c Nihilist     Sorceror     Arcanist     Myrmidon")
            MainProgram.SND("/c /GHeadhunter/c   Mercenary    Savant       Sexton       Warlord")
            MainProgram.SND("/c /GPlainsman/c    Barbarian    Avenger      Warmonger    Berserker")
            MainProgram.SND("/c /GPickpocket/c   Rogue        Thief        Assassin     Shadow Walker")
            MainProgram.SND("/c /GPage/c         Squire       Knight       Centurion    Templar")
            MainProgram.SND("/c /GScout/c        Nu-Dosai     Nubo-Medusai Ado-Mendusai Saedu-Morusai")
            MainProgram.SND("/c /GRunescribe/c   Draconian    Paek'oth     Daek'oth     Tzaek'oth")
            MainProgram.SND("/c /GMonk/c         Dosai        Medusai      Mendusai     Morusai")
            MainProgram.SND("/c /GMinstrel/c     Bard         Harlequin    Bladesinger  Blademaster")
        ElseIf txt = Mid("priest", 1, nputlen) Then
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Priest"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.User_Class = "Priest"
            MainProgram.User_IntelligenceMax += 3
            MainProgram.User_CharismaMax += 5
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 100
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("woodsman", 1, nputlen) Then
            MainProgram.User_WisdomMax += 3
            MainProgram.User_ConstitutionMax += 5
            MainProgram.User_Class = "Woodsman"
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Woodsman"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("gravedigger", 1, nputlen) Then
            MainProgram.User_Class = "Gravedigger"
            MainProgram.User_IntelligenceMax += 5
            MainProgram.User_CharismaMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 100
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Gravedigger"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("mageling", 1, nputlen) Then
            MainProgram.User_Class = "Mageling"
            MainProgram.User_IntelligenceMax += 5
            MainProgram.User_WisdomMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 100
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Mageling"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("hermit", 1, nputlen) Then
            MainProgram.User_Class = "Hermit"
            MainProgram.User_IntelligenceMax += 3
            MainProgram.User_WisdomMax += 5
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Hermit"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("elementalist", 1, nputlen) Then
            MainProgram.User_Class = "Elementalist"
            MainProgram.User_StrengthMax += 5
            MainProgram.User_IntelligenceMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 100
            MainProgram.User_Language_Infernal = 100
            MainProgram.User_Language_Arcanic = 100
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Elementalist"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("headhunter", 1, nputlen) Then
            MainProgram.User_Class = "Headhunter"
            MainProgram.User_StrengthMax += 5
            MainProgram.User_CharismaMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Headhunter"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("plainsman", 1, nputlen) Then
            MainProgram.User_Class = "Plainsman"
            MainProgram.User_StrengthMax += 5
            MainProgram.User_DexterityMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Plainsman"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("pickpocket", 1, nputlen) Then
            MainProgram.User_Class = "Pickpocket"
            MainProgram.User_DexterityMax += 5
            MainProgram.User_LuckMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Narsik = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Pickpocket"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("page", 1, nputlen) Then
            MainProgram.User_Class = "Page"
            MainProgram.User_StrengthMax += 3
            MainProgram.User_ConstitutionMax += 5
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(MainProgram.DirClasses)
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("scout", 1, nputlen) Then
            MainProgram.User_Class = "Scout"
            MainProgram.User_DexterityMax += 5
            MainProgram.User_CharismaMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Scout"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("runescribe", 1, nputlen) Then
            MainProgram.User_Class = "Runescribe"
            MainProgram.User_WisdomMax += 5
            MainProgram.User_CharismaMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 100
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Runescribe"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("monk", 1, nputlen) Then
            MainProgram.User_Class = "Monk"
            MainProgram.User_DexterityMax += 3
            MainProgram.User_WisdomMax += 5
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Monk"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("minstrel", 1, nputlen) Then
            MainProgram.User_Class = "Minstrel"
            MainProgram.User_CharismaMax += 5
            MainProgram.User_LuckMax += 3
            MainProgram.User_Language_Common = 100
            MainProgram.User_Language_Draconian = 0
            MainProgram.User_Language_Celestial = 0
            MainProgram.User_Language_Infernal = 0
            MainProgram.User_Language_Arcanic = 0
            Dim ClassLibrary As String = MainProgram.GetFileContents(Replace(MainProgram.DirClasses, "Page", "Minstrel"))
            LoadPlayer.AssignClassVariables(ClassLibrary)
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Class + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("yes", 1, nputlen) And MainProgram.User_Class <> "" Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWonderful, and now what race are you?/G" + Chr(34))
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the race list")
            MainProgram.SND("/z Info TheRace")
            MainProgram.SND("/z    The above command will give information on a specific race.")
            MainProgram.SND("/c [Race]/c    [Available Sex]   [Height][Nat. AC][Weight]   [Primary Stat] [Secondary Stat]")
            MainProgram.SND("/G Human/c     Male or Female    4' - 6' 10       120'-240'  Strength       Dexterity")
            MainProgram.SND("/G Dwarf/c     Male or Female    3' - 5' 15       120'-230'  Strength       Constitution")
            MainProgram.SND("/G Gnome/c     Male,Female, N    2' - 4' 12       60'-170'   Wisdom         Constitution")
            MainProgram.SND("/G Elf/c       Male or Female    4' - 5' 8        70'-130'   Dexterity      Charisma")
            MainProgram.SND("/G Half-elf/c  Male,Female, N    4' - 5' 9        90'-140'   Dexterity      Wisdom")
            MainProgram.SND("/G Halfling/c  Male,Female, N    2' - 3' 11       60'-120'   Dexterity      Luck")
            MainProgram.SND("/G Goblin/c    Male or Female    2' - 4' 13       70'-80'    Charisma       Intelligence")
            MainProgram.SND("/G Troll/c     Male or Female    5' - 8' 14       280'-420'  Strength       Luck")
            MainProgram.SND("/G Orc/c       Male or Female    5' - 6' 15       160'-280'  Strength       Intelligence")
            MainProgram.SND("/G Half-Orc/c  Male or Female    5' - 6' 12       150'-280'  Strength       Constitution")
            MainProgram.SND("/G Quickling/c Male,Female, N    2' - 3' 7        20'-50'    Dexterity      Dexterity")
            MainProgram.SND("/G Pixie/c     Female            1' - 2' 5        8'-15'     Dexterity      Intelligence")
            MainProgram.SND("/G Sprite/c    Male              1' - 2' 5        9'-20'     Dexterity      Intelligence")
            MainProgram.SND("/c Avarie/R*/c   Neutral           7' - 9' 15       175'       Wisdom         Intelligence")
            MainProgram.SND("/c Daemune/R*/c  Neutral           7' - 9' 15       175'       Wisdom         Intelligence")
            MainProgram.SND("/R      */c= Transcended race only")
            MainProgram.State = "LoginRace"
        ElseIf txt = Mid("no", 1, nputlen) And MainProgram.User_Class <> "" Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gThats fine, which class would better interest you?/G" + Chr(34))
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub DetermineLoginRace(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("information", 1, nputlen) Then
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the race list")
            MainProgram.SND("/z Info TheRace")
            MainProgram.SND("/z    The above command will give information on a specific race.")
            MainProgram.SND("/c [Race]/c    [Available Sex]   [Height][Nat. AC][Weight]   [Primary Stat] [Secondary Stat]")
            MainProgram.SND("/G Human/c     Male or Female    4' - 6' 10       120'-240'  Strength       Dexterity")
            MainProgram.SND("/G Dwarf/c     Male or Female    3' - 5' 15       120'-230'  Strength       Constitution")
            MainProgram.SND("/G Gnome/c     Male,Female, N    2' - 4' 12       60'-170'   Wisdom         Constitution")
            MainProgram.SND("/G Elf/c       Male or Female    4' - 5' 8        70'-130'   Dexterity      Charisma")
            MainProgram.SND("/G Half-elf/c  Male,Female, N    4' - 5' 9        90'-140'   Dexterity      Wisdom")
            MainProgram.SND("/G Halfling/c  Male,Female, N    2' - 3' 11       60'-120'   Dexterity      Luck")
            MainProgram.SND("/G Goblin/c    Male or Female    2' - 4' 13       70'-80'    Charisma       Intelligence")
            MainProgram.SND("/G Troll/c     Male or Female    5' - 8' 14       280'-420'  Strength       Luck")
            MainProgram.SND("/G Orc/c       Male or Female    5' - 6' 15       160'-280'  Strength       Intelligence")
            MainProgram.SND("/G Half-Orc/c  Male or Female    5' - 6' 12       150'-280'  Strength       Constitution")
            MainProgram.SND("/G Quickling/c Male,Female, N    2' - 3' 7        20'-50'    Dexterity      Dexterity")
            MainProgram.SND("/G Pixie/c     Female            1' - 2' 5        8'-15'     Dexterity      Intelligence")
            MainProgram.SND("/G Sprite/c    Male              1' - 2' 5        9'-20'     Dexterity      Intelligence")
            MainProgram.SND("/c Avarie/R*/c   Neutral           7' - 9' 15       175'       Wisdom         Intelligence")
            MainProgram.SND("/c Daemune/R*/c  Neutral           7' - 9' 15       175'       Wisdom         Intelligence")
            MainProgram.SND("/R      */c= Transcended race only")
        ElseIf txt = Mid("info human", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cMost of the continent of Sedia contains humans, the newest race and are breeding out the rest.")
        ElseIf txt = Mid("info dwarf", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cLittle are seen outside of Jewall in the Northern Reach, besides King Mishnal Stonecleaver of Tharsis.")
        ElseIf txt = Mid("info gnome", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cSlaves of the Dwarves because of racial hatred, they are recently breaking into freedom into other parts of the continent.")
        ElseIf txt = Mid("info elf", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cHabitually in warmer climate such as Darkwood, this secluded race communicates little with the rest of the world.")
        ElseIf txt = Mid("info half-elf", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cRare race found occasionally in Tharsis hard to identify and usually hide their elven identity.")
        ElseIf txt = Mid("info halfling", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cHalf the height of a human, can sometimes be mischievous but generally well-rounded. Said to have originated from the War of Souls.")
        ElseIf txt = Mid("info goblin", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cApproximately half the height of a human, discolored and disfigured, criticized and misbehaved intelligent half-breed of Daemune.")
        ElseIf txt = Mid("info troll", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cGenerally tall and residential of desert climates, family-based race dependent on the movement of their tribe.")
        ElseIf txt = Mid("info orc", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cDark-figured misshapen offspring of Daemune and Giants, their unorthodox small height is made up by their concrete attitude.")
        ElseIf txt = Mid("info half-orc", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cSometimes seen in the Northern Reach where humans have been raped countless times by the ruthless hordes of invading Orcs.")
        ElseIf txt = Mid("info quickling", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA third the size of a human, a Quickling is bald and always mischievous and self-centered, with the occasion of talking too fast.")
        ElseIf txt = Mid("info pixie", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA small mysterious creature created by Lythantos during the War of Souls. They now wander the Bleak aimlessly.")
        ElseIf txt = Mid("info sprite", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA small mysterious creature created by Lythantos during the War of Souls. They now wander The Bleak aimlessly.")
        ElseIf txt = Mid("info avarie", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cA celestial race ordained as avatars of their perspective god.")
        ElseIf txt = Mid("info daemune", 1, nputlen) And nputlen > 5 Then
            MainProgram.SND("/cAn infernal race ordained as avatars of their perspective god.")
        ElseIf txt = Mid("human", 1, nputlen) Then
            MainProgram.User_Race = "Human"
            MainProgram.User_Age = "18"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(120, 241)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(4, 7)) + "' " + Str(MainProgram.RandomClass.Next(1, 13)) + Chr(34)
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 10
            MainProgram.User_TotalAC = 10
            MainProgram.User_StrengthMax += 15
            MainProgram.User_DexterityMax += 15
            MainProgram.User_IntelligenceMax += 15
            MainProgram.User_WisdomMax += 15
            MainProgram.User_ConstitutionMax += 15
            MainProgram.User_CharismaMax += 15
            MainProgram.User_LuckMax += 15
            MainProgram.User_Strength = 10 : MainProgram.User_Strengthmod = 10
            MainProgram.User_Dexterity = 10 : MainProgram.User_Dexteritymod = 10
            MainProgram.User_Intelligence = 10 : MainProgram.User_Intelligencemod = 10
            MainProgram.User_Wisdom = 10 : MainProgram.User_Wisdommod = 10
            MainProgram.User_Constitution = 10 : MainProgram.User_Constitutionmod = 10
            MainProgram.User_Charisma = 10 : MainProgram.User_Charismamod = 10
            MainProgram.User_Luck = 10 : MainProgram.User_Luckmod = 10
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("dwarf", 1, nputlen) Then
            MainProgram.User_Race = "Dwarf"
            MainProgram.User_Age = "32"
            MainProgram.User_Language_Northern = 100
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(120, 231)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(3, 6)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 15
            MainProgram.User_TotalAC = 15
            MainProgram.User_StrengthMax += 17
            MainProgram.User_DexterityMax += 13
            MainProgram.User_IntelligenceMax += 14
            MainProgram.User_WisdomMax += 16
            MainProgram.User_ConstitutionMax += 17
            MainProgram.User_CharismaMax += 14
            MainProgram.User_LuckMax += 14
            MainProgram.User_Strength = 12 : MainProgram.User_Strengthmod = 12
            MainProgram.User_Dexterity = 8 : MainProgram.User_Dexteritymod = 8
            MainProgram.User_Intelligence = 9 : MainProgram.User_Intelligencemod = 9
            MainProgram.User_Wisdom = 11 : MainProgram.User_Wisdommod = 11
            MainProgram.User_Constitution = 12 : MainProgram.User_Constitutionmod = 12
            MainProgram.User_Charisma = 9 : MainProgram.User_Charismamod = 9
            MainProgram.User_Luck = 9 : MainProgram.User_Luck = 9
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("gnome", 1, nputlen) Then
            MainProgram.User_Race = "Gnome"
            MainProgram.User_Age = "42"
            MainProgram.User_Language_Narsik = 100
            MainProgram.User_Language_Northern = 100
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(60, 171)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(2, 5)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 12
            MainProgram.User_TotalAC = 12
            MainProgram.User_StrengthMax += 16
            MainProgram.User_DexterityMax += 14
            MainProgram.User_IntelligenceMax += 16
            MainProgram.User_WisdomMax += 14
            MainProgram.User_ConstitutionMax += 15
            MainProgram.User_CharismaMax += 14
            MainProgram.User_LuckMax += 16
            MainProgram.User_Strength = 11 : MainProgram.User_Strengthmod = 11
            MainProgram.User_Dexterity = 9 : MainProgram.User_Dexteritymod = 9
            MainProgram.User_Intelligence = 11 : MainProgram.User_Intelligencemod = 11
            MainProgram.User_Wisdom = 9 : MainProgram.User_Wisdommod = 9
            MainProgram.User_Constitution = 10 : MainProgram.User_Constitutionmod = 10
            MainProgram.User_Charisma = 9 : MainProgram.User_Charismamod = 9
            MainProgram.User_Luck = 11 : MainProgram.User_Luckmod = 11
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("elf", 1, nputlen) Then
            MainProgram.User_Race = "Elf"
            MainProgram.User_Age = "83"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(70, 131)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(4, 6)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 8
            MainProgram.User_TotalAC = 8
            MainProgram.User_StrengthMax += 14
            MainProgram.User_DexterityMax += 17
            MainProgram.User_IntelligenceMax += 16
            MainProgram.User_WisdomMax += 16
            MainProgram.User_ConstitutionMax += 14
            MainProgram.User_CharismaMax += 14
            MainProgram.User_LuckMax += 13
            MainProgram.User_Strength = 9 : MainProgram.User_Strengthmod = 9
            MainProgram.User_Dexterity = 12 : MainProgram.User_Dexteritymod = 12
            MainProgram.User_Intelligence = 11 : MainProgram.User_Intelligencemod = 11
            MainProgram.User_Wisdom = 11 : MainProgram.User_Wisdommod = 11
            MainProgram.User_Constitution = 9 : MainProgram.User_Constitutionmod = 9
            MainProgram.User_Charisma = 9 : MainProgram.User_Charismamod = 9
            MainProgram.User_Luck = 8 : MainProgram.User_Luckmod = 8
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("half-elf", 1, nputlen) Then
            MainProgram.User_Race = "Half-elf"
            MainProgram.User_Age = "19"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(90, 141)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(4, 6)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 9
            MainProgram.User_TotalAC = 9
            MainProgram.User_StrengthMax += 15
            MainProgram.User_DexterityMax += 17
            MainProgram.User_IntelligenceMax += 15
            MainProgram.User_WisdomMax += 15
            MainProgram.User_ConstitutionMax += 14
            MainProgram.User_CharismaMax += 15
            MainProgram.User_LuckMax += 14
            MainProgram.User_Strength = 10 : MainProgram.User_Strengthmod = 10
            MainProgram.User_Dexterity = 12 : MainProgram.User_Dexteritymod = 12
            MainProgram.User_Intelligence = 10 : MainProgram.User_Intelligencemod = 10
            MainProgram.User_Wisdom = 10 : MainProgram.User_Wisdommod = 10
            MainProgram.User_Constitution = 9 : MainProgram.User_Constitutionmod = 9
            MainProgram.User_Charisma = 10 : MainProgram.User_Charismamod = 10
            MainProgram.User_Luck = 9 : MainProgram.User_Luckmod = 9
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("halfling", 1, nputlen) Then
            MainProgram.User_Race = "Halfling"
            MainProgram.User_Age = "14"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(60, 121)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(2, 4)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 11
            MainProgram.User_TotalAC = 11
            MainProgram.User_StrengthMax += 14
            MainProgram.User_DexterityMax += 16
            MainProgram.User_IntelligenceMax += 15
            MainProgram.User_WisdomMax += 15
            MainProgram.User_ConstitutionMax += 14
            MainProgram.User_CharismaMax += 15
            MainProgram.User_LuckMax += 16
            MainProgram.User_Strength = 9 : MainProgram.User_Strengthmod = 9
            MainProgram.User_Dexterity = 11 : MainProgram.User_Dexteritymod = 11
            MainProgram.User_Intelligence = 10 : MainProgram.User_Intelligencemod = 10
            MainProgram.User_Wisdom = 10 : MainProgram.User_Wisdommod = 10
            MainProgram.User_Constitution = 9 : MainProgram.User_Constitutionmod = 9
            MainProgram.User_Charisma = 10 : MainProgram.User_Charismamod = 10
            MainProgram.User_Luck = 11 : MainProgram.User_Luckmod = 11
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("goblin", 1, nputlen) Then
            MainProgram.User_Race = "Goblin"
            MainProgram.User_Age = "40"
            MainProgram.User_Language_Narsik = 100
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(70, 81)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(2, 5)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 13
            MainProgram.User_TotalAC = 13
            MainProgram.User_StrengthMax += 13
            MainProgram.User_DexterityMax += 13
            MainProgram.User_IntelligenceMax += 17
            MainProgram.User_WisdomMax += 14
            MainProgram.User_ConstitutionMax += 17
            MainProgram.User_CharismaMax += 17
            MainProgram.User_LuckMax += 14
            MainProgram.User_Strength = 8 : MainProgram.User_Strengthmod = 8
            MainProgram.User_Dexterity = 8 : MainProgram.User_Dexteritymod = 8
            MainProgram.User_Intelligence = 12 : MainProgram.User_Intelligencemod = 12
            MainProgram.User_Wisdom = 9 : MainProgram.User_Wisdommod = 9
            MainProgram.User_Constitution = 12 : MainProgram.User_Constitutionmod = 12
            MainProgram.User_Charisma = 12 : MainProgram.User_Charismamod = 12
            MainProgram.User_Luck = 9 : MainProgram.User_Luckmod = 9
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("troll", 1, nputlen) Then
            MainProgram.User_Race = "Troll"
            MainProgram.User_Age = "20"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(280, 421)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(5, 9)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 14
            MainProgram.User_TotalAC = 14
            MainProgram.User_StrengthMax += 16
            MainProgram.User_DexterityMax += 17
            MainProgram.User_IntelligenceMax += 16
            MainProgram.User_WisdomMax += 14
            MainProgram.User_ConstitutionMax += 16
            MainProgram.User_CharismaMax += 13
            MainProgram.User_LuckMax += 13
            MainProgram.User_Strength = 11 : MainProgram.User_Strengthmod = 11
            MainProgram.User_Dexterity = 12 : MainProgram.User_Dexteritymod = 12
            MainProgram.User_Intelligence = 11 : MainProgram.User_Intelligencemod = 11
            MainProgram.User_Wisdom = 9 : MainProgram.User_Wisdommod = 9
            MainProgram.User_Constitution = 11 : MainProgram.User_Constitutionmod = 11
            MainProgram.User_Charisma = 8 : MainProgram.User_Charismamod = 8
            MainProgram.User_Luck = 8 : MainProgram.User_Luckmod = 8
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("orc", 1, nputlen) Then
            MainProgram.User_Race = "Orc"
            MainProgram.User_Age = "18"
            MainProgram.User_Language_Northern = 100
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(160, 281)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(5, 7)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 15
            MainProgram.User_TotalAC = 15
            MainProgram.User_StrengthMax += 17
            MainProgram.User_DexterityMax += 13
            MainProgram.User_IntelligenceMax += 16
            MainProgram.User_WisdomMax += 13
            MainProgram.User_ConstitutionMax += 17
            MainProgram.User_CharismaMax += 14
            MainProgram.User_LuckMax += 15
            MainProgram.User_Strength = 12 : MainProgram.User_Strengthmod = 12
            MainProgram.User_Dexterity = 8 : MainProgram.User_Dexteritymod = 8
            MainProgram.User_Intelligence = 11 : MainProgram.User_Intelligencemod = 11
            MainProgram.User_Wisdom = 8 : MainProgram.User_Wisdommod = 8
            MainProgram.User_Constitution = 12 : MainProgram.User_Constitutionmod = 12
            MainProgram.User_Charisma = 9 : MainProgram.User_Charismamod = 9
            MainProgram.User_Luck = 10 : MainProgram.User_Luckmod = 10
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("half-orc", 1, nputlen) Then
            MainProgram.User_Race = "Half-orc"
            MainProgram.User_Age = "18"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(150, 251)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(4, 7)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 12
            MainProgram.User_TotalAC = 12
            MainProgram.User_StrengthMax += 17
            MainProgram.User_DexterityMax += 14
            MainProgram.User_IntelligenceMax += 15
            MainProgram.User_WisdomMax += 13
            MainProgram.User_ConstitutionMax += 17
            MainProgram.User_CharismaMax += 14
            MainProgram.User_LuckMax += 15
            MainProgram.User_Strength = 12 : MainProgram.User_Strengthmod = 12
            MainProgram.User_Dexterity = 9 : MainProgram.User_Dexteritymod = 9
            MainProgram.User_Intelligence = 10 : MainProgram.User_Intelligencemod = 10
            MainProgram.User_Wisdom = 8 : MainProgram.User_Wisdommod = 8
            MainProgram.User_Constitution = 12 : MainProgram.User_Constitutionmod = 12
            MainProgram.User_Charisma = 9 : MainProgram.User_Charismamod = 9
            MainProgram.User_Luck = 10 : MainProgram.User_Luckmod = 10
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("quickling", 1, nputlen) Then
            MainProgram.User_Race = "Quickling"
            MainProgram.User_Age = "8"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(20, 51)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(2, 4)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 7
            MainProgram.User_TotalAC = 7
            MainProgram.User_StrengthMax += 13
            MainProgram.User_DexterityMax += 19
            MainProgram.User_IntelligenceMax += 13
            MainProgram.User_WisdomMax += 13
            MainProgram.User_ConstitutionMax += 14
            MainProgram.User_CharismaMax += 17
            MainProgram.User_LuckMax += 16
            MainProgram.User_Strength = 8 : MainProgram.User_Strengthmod = 8
            MainProgram.User_Dexterity = 14 : MainProgram.User_Dexteritymod = 14
            MainProgram.User_Intelligence = 8 : MainProgram.User_Intelligencemod = 8
            MainProgram.User_Wisdom = 8 : MainProgram.User_Wisdommod = 8
            MainProgram.User_Constitution = 9 : MainProgram.User_Constitutionmod = 9
            MainProgram.User_Charisma = 12 : MainProgram.User_Charismamod = 12
            MainProgram.User_Luck = 11 : MainProgram.User_Luckmod = 11
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("pixie", 1, nputlen) Then
            MainProgram.User_Race = "Pixie"
            MainProgram.User_Age = "112"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(8, 16)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(1, 3)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 5
            MainProgram.User_TotalAC = 5
            MainProgram.User_StrengthMax += 13
            MainProgram.User_DexterityMax += 17
            MainProgram.User_IntelligenceMax += 16
            MainProgram.User_WisdomMax += 17
            MainProgram.User_ConstitutionMax += 12
            MainProgram.User_CharismaMax += 16
            MainProgram.User_LuckMax += 13
            MainProgram.User_Strength = 8 : MainProgram.User_Strengthmod = 8
            MainProgram.User_Dexterity = 12 : MainProgram.User_Dexteritymod = 12
            MainProgram.User_Intelligence = 11 : MainProgram.User_Intelligence = 11
            MainProgram.User_Wisdom = 12 : MainProgram.User_Wisdom = 12
            MainProgram.User_Constitution = 8 : MainProgram.User_Constitution = 8
            MainProgram.User_Charisma = 11 : MainProgram.User_Charisma = 11
            MainProgram.User_Luck = 8 : MainProgram.User_Luck = 8
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("sprite", 1, nputlen) Then
            MainProgram.User_Race = "Sprite"
            MainProgram.User_Age = "112"
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 31)
            MainProgram.User_Birthday = MainProgram.Daytostring(MainProgram.RandomNumber)
            MainProgram.RandomNumber = MainProgram.RandomClass.Next(1, 11)
            MainProgram.User_Birthday += " " + MainProgram.Monthtostring(MainProgram.RandomNumber) + ", "
            MainProgram.User_Birthday += Str(145 - Val(MainProgram.User_Age)) + " " + MainProgram.Serverdateera
            MainProgram.User_Weight = Str(MainProgram.RandomClass.Next(9, 21)) + "'"
            MainProgram.User_Height = Str(MainProgram.RandomClass.Next(1, 3)) + "'"
            MainProgram.User_PierceAC = 0
            MainProgram.User_BashAC = 0
            MainProgram.User_FistAC = 0
            MainProgram.User_SlashAC = 0
            MainProgram.User_ExoticAC = 0
            MainProgram.User_NaturalAC = 5
            MainProgram.User_TotalAC = 5
            MainProgram.User_StrengthMax += 13
            MainProgram.User_DexterityMax += 17
            MainProgram.User_IntelligenceMax += 17
            MainProgram.User_WisdomMax += 16
            MainProgram.User_ConstitutionMax += 14
            MainProgram.User_CharismaMax += 15
            MainProgram.User_LuckMax += 13
            MainProgram.User_Strength = 8 : MainProgram.User_Strengthmod = 8
            MainProgram.User_Dexterity = 12 : MainProgram.User_Dexteritymod = 12
            MainProgram.User_Intelligence = 12 : MainProgram.User_Intelligencemod = 12
            MainProgram.User_Wisdom = 11 : MainProgram.User_Wisdommod = 11
            MainProgram.User_Constitution = 9 : MainProgram.User_Constitutionmod = 9
            MainProgram.User_Charisma = 10 : MainProgram.User_Charismamod = 10
            MainProgram.User_Luck = 8 : MainProgram.User_Luckmod = 8
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gDid you say " + MainProgram.User_Race + "?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c.]")
        ElseIf txt = Mid("avarie", 1, nputlen) Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gThats not possible, you can't be transcended yet./G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat race are you really?/G" + Chr(34))
        ElseIf txt = Mid("daemune", 1, nputlen) Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gThats not possible, you can't be transcended yet./G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat race are you really?/G" + Chr(34))
        ElseIf txt = Mid("yes", 1, nputlen) Then
            MainProgram.State = "LoginSex"
            If MainProgram.User_Race = "Human" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Dwarf" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Gnome" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male, Female, or Neutral?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c, /GNeutral/c.]")
            ElseIf MainProgram.User_Race = "Elf" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Half-elf" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male, Female, or Neutral?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c, /GNeutral/c.]")
            ElseIf MainProgram.User_Race = "Halfling" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male, Female, or Neutral?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c, /GNeutral/c.]")
            ElseIf MainProgram.User_Race = "Goblin" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Troll" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Orc" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Half-orc" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male or Female?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c.]")
            ElseIf MainProgram.User_Race = "Quickling" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gAre you Male, Female, or Neutral?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GMale/c, /GFemale/c, /GNeutral/c.]")
            ElseIf MainProgram.User_Race = "Pixie" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gOkay then you must be a Female./G" + Chr(34))
                MainProgram.User_Gender = "Female"
                MainProgram.State = "SHOWLoginProvince"
            ElseIf MainProgram.User_Race = "Sprite" Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gOkay then you must be a Male./G" + Chr(34))
                MainProgram.User_Gender = "Male"
                MainProgram.State = "SHOWLoginProvince"
            End If
        ElseIf txt = Mid("no", 1, nputlen) Then
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gThen which race are you?/G" + Chr(34))
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub DetermineLoginSex(ByVal txt As String, ByVal nputlen As Short)
        If MainProgram.User_Race = "Human" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Dwarf" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Gnome" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            ElseIf txt = Mid("neutral", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gNeutral it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Neutral"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Elf" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Half-elf" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            ElseIf txt = Mid("neutral", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gNeutral it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Neutral"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Halfling" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            ElseIf txt = Mid("neutral", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gNeutral it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Neutral"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Goblin" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Troll" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Orc" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Half-orc" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        ElseIf MainProgram.User_Race = "Quickling" Then
            If txt = Mid("male", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Male"
            ElseIf txt = Mid("female", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gFemale it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Female"
            ElseIf txt = Mid("neutral", 1, nputlen) Then
                MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gNeutral it is then./G" + Chr(34))
                MainProgram.State = "SHOWLoginProvince"
                MainProgram.User_Gender = "Neutral"
            Else
                MainProgram.SND("/R" + txt + " is not one of the options.")
            End If
        End If
    End Sub
    Public Sub DetermineLoginProvince(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("info", 1, nputlen) Then
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the province list")
            MainProgram.SND("/z Info TheProvince")
            MainProgram.SND("/z    The above command will give information on a specific province.")
            MainProgram.SND("/c[Rnk][/GTharsis/c]  [/GCrecia/c] [/GNarsis/c]   [/GNew Saellem/c] [/GJewall/c]    [Salary/Day][Lvl]")
            MainProgram.SND("/c 1    Scout      Guard    Underling  Phalangite    Bestiarii   10 Vern/Day 0")
            MainProgram.SND("/c 2    Wood Guard Sentry   Blood gua. Hoplite       Dimachaeri  15 Vern/Day 15")
            MainProgram.SND("/c 3    Wood Capt. Public  Bone Guar. Hoplomachos   Mirmillones 20 Vern/Day 30")
            MainProgram.SND("/c 4    Stone Gua. Captain  Blood Fie. Lokhagos      Retiarii    25 Vern/Day 45")
            MainProgram.SND("/c 5    Stone Cap. Lieuten. Bone Fiend Tagmatarkhis  Saggitarii  30 Vern/Day 60")
            MainProgram.SND("/c 6    Senior Ca. Sargent  Fleshmong. Syntagma      Velite      35 Vern/Day 75")
            MainProgram.SND("/c 7    Admiral    Corporal Dread Lor. Taxiarchos    Essedari    40 Vern/Day 90")
            MainProgram.SND("/c 8    Commander  General  Overlord   Strategos     Andabatae   45 Vern/Day 100")
            MainProgram.SND("/c ")
            MainProgram.SND("/c Rank 1 Benefits: Barracks Bed, Free Food")
            MainProgram.SND("/c Rank 2 Benefits: Barracks Bed, Free Food, Storage Chest")
            MainProgram.SND("/c Rank 3 Benefits: Barracks Bed, Free Food, Storage Chest, Personal Office")
            MainProgram.SND("/c Rank 4 Benefits: Public Quarters, Free Food, Storage Chest, Personal Office")
            MainProgram.SND("/c Rank 5 Benefits: Public Quarters, Free Food, Storage Chest, Personal Office, Mount")
            MainProgram.SND("/c Rank 6 Benefits: 1 Room House, Free Food, Storage Chest, Personal Office, Mount")
            MainProgram.SND("/c Rank 7 Benefits: 3 Room house, Free Food, Storage Chest, Personal Office, Mount")
            MainProgram.SND("/c Rank 8 Benefits: 5 Room House, Free Food, Storage Chest, Personal Office, Mount")
        ElseIf txt = Mid("info tharsis", 1, nputlen) Then
            MainProgram.SND("/cTharsis lies in the Northwestern part of the continent of Sedia. There are few dwarfs, and mostly humans. Tharsis is built into the side of a large mountain, against the Northern Reach. Because of its embedding into the mountain and slightly northern position its weather is usually quite cold, but rarely does snow grace its grounds but near the end of the years. Directly south of the city is Darkwood forest, and the Temple of Goad.")
        ElseIf txt = Mid("info crecia", 1, nputlen) Then
            MainProgram.SND("/cCrecia is the largest city of Sedia. It is a large transportation and marketing hub and rules the seas for trade. The Xorcos family tree originated from Crecia, and because of this, Crecia lies in the center of the War of Mandak. Weather is moderate temperate due to the location next to the water, and center origin of Urd. All kinds of races reside in Crecia.")
        ElseIf txt = Mid("info narsis", 1, nputlen) Then
            MainProgram.SND("/cNarsis is a city of corruption and violence. It resides conveniently under Tharsis and there are old stories relating to the connection between the two. It is also said that there are many tunnels leading between them. All kinds of races live in Narsis, it is dangerous and has no weather but occasionaly quakes.")
        ElseIf txt = Mid("info new saellem", 1, nputlen) Then
            MainProgram.SND("/cNew Saellem is located in the far North Eastern part of Sedia, very high upon a plateau, inside the Forest of Frost. It is always cold there, with the occasional snow storm and fog. New Saellem is origin to battered warriors and veterans of the northern battles against the orcs. It's histories are hidden deep inside lore, and few who know any of it reside outside of its walls.")
        ElseIf txt = Mid("info jewall", 1, nputlen) Then
            MainProgram.SND("/cJewall is the city of dwarves. They wage a war against the orcs to the North West of them, and trade heavily with Tharsis to the South West of them. Jewall rarely communicates with anyone but few said royalty within the walls of Tharsis.")
        ElseIf txt = Mid("tharsis", 1, nputlen) Then
            MainProgram.User_HomeProvince = "Tharsis"
            MainProgram.User_Clan = "None"
            MainProgram.User_ClanRank = "None"
            MainProgram.User_Tradesguild = "None"
            MainProgram.User_TradesguildRank = "None"
            MainProgram.User_Loyalty = "None"
            MainProgram.User_Citizenship = "Wanderer"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/g" + MainProgram.User_HomeProvince + " eh?/G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat Rode do you follow in life?/G" + Chr(34))
            MainProgram.State = "SHOWLoginRode"
        ElseIf txt = Mid("crecia", 1, nputlen) Then
            MainProgram.User_HomeProvince = "Crecia"
            MainProgram.User_Clan = "None"
            MainProgram.User_ClanRank = "None"
            MainProgram.User_Tradesguild = "None"
            MainProgram.User_TradesguildRank = "None"
            MainProgram.User_Loyalty = "None"
            MainProgram.User_Citizenship = "Wanderer"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/g" + MainProgram.User_HomeProvince + " eh?/G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat Rode do you follow in life?/G" + Chr(34))
            MainProgram.State = "SHOWLoginRode"
        ElseIf txt = Mid("narsis", 1, nputlen) Then
            MainProgram.User_Clan = "None"
            MainProgram.User_ClanRank = "None"
            MainProgram.User_Tradesguild = "None"
            MainProgram.User_TradesguildRank = "None"
            MainProgram.User_Loyalty = "None"
            MainProgram.User_Citizenship = "Wanderer"
            MainProgram.User_HomeProvince = "Narsis"
            MainProgram.User_Language_Narsik = 50
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/g" + MainProgram.User_HomeProvince + " eh?/G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat Rode do you follow in life?/G" + Chr(34))
            MainProgram.State = "SHOWLoginRode"
        ElseIf txt = Mid("new saellem", 1, nputlen) Then
            MainProgram.User_HomeProvince = "New Saellem"
            MainProgram.User_Clan = "None"
            MainProgram.User_ClanRank = "None"
            MainProgram.User_Tradesguild = "None"
            MainProgram.User_TradesguildRank = "None"
            MainProgram.User_Loyalty = "None"
            MainProgram.User_Citizenship = "Wanderer"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/g" + MainProgram.User_HomeProvince + " eh?/G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat Rode do you follow in life?/G" + Chr(34))
            MainProgram.State = "SHOWLoginRode"
        ElseIf txt = Mid("jewall", 1, nputlen) Then
            MainProgram.User_HomeProvince = "Jewall"
            MainProgram.User_Clan = "None"
            MainProgram.User_ClanRank = "None"
            MainProgram.User_Tradesguild = "None"
            MainProgram.User_TradesguildRank = "None"
            MainProgram.User_Loyalty = "None"
            MainProgram.User_Citizenship = "Wanderer"
            MainProgram.User_Language_Northern = 50
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/g" + MainProgram.User_HomeProvince + " eh?/G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhat Rode do you follow in life?/G" + Chr(34))
            MainProgram.State = "SHOWLoginRode"
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub DetermineLoginRode(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("information", 1, nputlen) Then
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the rode list")
            MainProgram.SND("/z Info TheRode")
            MainProgram.SND("/z    The above command will give information on a specific rode.")
            MainProgram.SND("/c [Rode]                [Affects]")
            MainProgram.SND("/c  Rode of /GProtection/c    +DEF, +AC, -Damage Taken")
            MainProgram.SND("/c  Rode of /GDestruction/c   +Skill Power, +Spell Power, +Damage Dealt")
            MainProgram.SND("/c  Rode of /GAgility/c       +Dodge, +Evade, +Parry, +Counter")
            MainProgram.SND("/c  Rode of /GBetrayal/c      +Stamina, +Dexterity, -Influence")
            MainProgram.SND("/c  Rode of /GRighteousness/c +Constitution, +Willpower")
            MainProgram.SND("/c  Rode of /GKnowledge/c     +Intelligence, +Spellpower")
            MainProgram.SND("/c  Rode of /GPeacefulness/c  +Presence, +Influence")
            MainProgram.SND("/c  Rode of /GWisdom/c        +Wisdom, +Influence")
            MainProgram.SND("/c  Rode of /GPower/c         +Skill Power, +Strength, +Damage Dealt")
            MainProgram.SND("/c  Rode of /GChance/c        +Saving throw on all failures")
            MainProgram.SND("/c  Rode of /GFaith/c         +Heal Power, +Regeneration")
            MainProgram.SND("/c  Rode of /GDetermination/c +Constituion, HP&WP&SP have to be 0 to die")
            MainProgram.SND("/c  Rode of /GCognition/c     +Intelligence, +Charisma, +Influence, -Wisdom")
        ElseIf txt = Mid("info protection", 1, nputlen) Or txt = Mid("info rode of protection", 1, nputlen) Then
            MainProgram.SND("/cWill cause shield and armor to glow slightly white.")
        ElseIf txt = Mid("info destruction", 1, nputlen) Or txt = Mid("info rode of destruction", 1, nputlen) Then
            MainProgram.SND("/cWill cause armor and shield to glow slightly black.")
        ElseIf txt = Mid("info agility", 1, nputlen) Or txt = Mid("info rode of agility", 1, nputlen) Then
            MainProgram.SND("/cPlayer bounces when idle, a ghostly shade when they dodge or parry.")
        ElseIf txt = Mid("info betrayal", 1, nputlen) Or txt = Mid("info rode of betrayal", 1, nputlen) Then
            MainProgram.SND("/cPlayer's armor will be darker in tint, dark under the eyes.")
        ElseIf txt = Mid("info righteousness", 1, nputlen) Or txt = Mid("info rode of righteousness", 1, nputlen) Then
            MainProgram.SND("/cButterflies are attracted to the player, signs of a faint halo.")
        ElseIf txt = Mid("info knowledge", 1, nputlen) Or txt = Mid("info rode of knowledge", 1, nputlen) Then
            MainProgram.SND("/cTime stops in a bubble around character when they cast.")
        ElseIf txt = Mid("info peacefulness", 1, nputlen) Or txt = Mid("info rode of peacefulness", 1, nputlen) Then
            MainProgram.SND("/cCharacter holds their head high and smiles.")
        ElseIf txt = Mid("info wisdom", 1, nputlen) Or txt = Mid("info rode of wisdom", 1, nputlen) Then
            MainProgram.SND("/cCharacter walks with fingers entwined.")
        ElseIf txt = Mid("info power", 1, nputlen) Or txt = Mid("info rode of power", 1, nputlen) Then
            MainProgram.SND("/cCharacter yells when fighting.")
        ElseIf txt = Mid("info chance", 1, nputlen) Or txt = Mid("info rode of chance", 1, nputlen) Then
            MainProgram.SND("/cCharacter flips a coin when idle.")
        ElseIf txt = Mid("info faith", 1, nputlen) Or txt = Mid("info rode of faith", 1, nputlen) Then
            MainProgram.SND("/cCharacter prays when idle, and glows a faint light.")
        ElseIf txt = Mid("info determination", 1, nputlen) Or txt = Mid("info rode of determination", 1, nputlen) Then
            MainProgram.SND("/cCharacter clenches fists when idle.")
        ElseIf txt = Mid("info cognition", 1, nputlen) Or txt = Mid("info rode of cognition", 1, nputlen) Then
            MainProgram.SND("/cCharacter walks and stands with hands entangled.")
        ElseIf txt = Mid("protection", 1, nputlen) Or txt = Mid("rode of protection", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Protection"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("destruction", 1, nputlen) Or txt = Mid("rode of destruction", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Destruction"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("agility", 1, nputlen) Or txt = Mid("rode of agility", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Agility"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("betrayal", 1, nputlen) Or txt = Mid("rode of betrayal", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Betrayal"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("righteousness", 1, nputlen) Or txt = Mid("rode of righteousness", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Righteousness"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("knowledge", 1, nputlen) Or txt = Mid("rode of knowledge", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Knowledge"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("peacefulness", 1, nputlen) Or txt = Mid("rode of peacefulness", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Peacefulness"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("wisdom", 1, nputlen) Or txt = Mid("rode of wisdom", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Wisdom"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("power", 1, nputlen) Or txt = Mid("rode of power", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Power"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("chance", 1, nputlen) Or txt = Mid("rode of chance", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Chance"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("faith", 1, nputlen) Or txt = Mid("rode of faith", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Faith"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("determination", 1, nputlen) Or txt = Mid("rode of determination", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Determination"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        ElseIf txt = Mid("cognition", 1, nputlen) Or txt = Mid("rode of cognition", 1, nputlen) Then
            MainProgram.User_Rode = "Rode of Cognition"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the " + MainProgram.User_Rode + " guide you well./G" + Chr(34))
            MainProgram.State = "SHOWLoginTemple"
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub DetermineLoginTemple(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("information", 1, nputlen) Then
            MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
            MainProgram.SND("/z Info")
            MainProgram.SND("/z    The above command will display the temple list")
            MainProgram.SND("/z Info TheTemple")
            MainProgram.SND("/z    The above command will give information on a specific temple.")
            MainProgram.SND("/c /c[Temple]/c               [Short Description]")
            MainProgram.SND("/c Temple of /GLythantos/c   The god of magic and neutrality. Created the sentient races and Ancients.")
            MainProgram.SND("/c Temple of /GDekkashraen/c The god of war and creater of non-sentient magical creatures.")
            MainProgram.SND("/c Temple of /GEttphemone/c  The goddess of creation, formed Urd, wife of Lythantos.")
            MainProgram.SND("/c Temple of /GGoad/c        Gnomish god of good fortune. Considered pagan.")
            MainProgram.SND("/c           /GNone/c        The lesser majority of Urd joins no temple.")
        ElseIf txt = Mid("info none", 1, nputlen) Or txt = Mid("info no temple", 1, nputlen) Then
            MainProgram.SND("/cA short few of Urd follow no temple. This isn't the majority because of the benifits of having a temple including money, allies, free items, and quests.")
        ElseIf txt = Mid("info lythantos", 1, nputlen) Or txt = Mid("info temple of lythantos", 1, nputlen) Then
            MainProgram.SND("/cLythantos created the sentient races of Urd, and is known to have first created the reknowned Ancients. He was husband of Ettphemone, and god of neutrality and magic.")
        ElseIf txt = Mid("info dekkashraen", 1, nputlen) Or txt = Mid("info temple of dekkashraen", 1, nputlen) Then
            MainProgram.SND("/cDekkashraen created the non-sentient beasts and magical creatures of Urd. He is the god of war and 'brother' of Lythantos. It is said that he killed Ettphemone bringing about The Breaking. He is reknown to be the god of the dark arts and also the creature of the Infernals.")
        ElseIf txt = Mid("info ettphemone", 1, nputlen) Or txt = Mid("info temple of ettphemone", 1, nputlen) Then
            MainProgram.SND("/cEttphemone created urd, its animals and lesser creatures. She was the wife of Lythantos and the goddess of all things good. It is said her death brought about The Breaking causing Lythantos and Dekkashraen to wage war.")
        ElseIf txt = Mid("info goad", 1, nputlen) Or txt = Mid("info temple of goad", 1, nputlen) Then
            MainProgram.SND("/cThe Temple of Goad is considered a pagan religion by many of Urd but is by far the largest of such. Goad is said to be the Gnome god of good fortune.")
        ElseIf txt = Mid("lythantos", 1, nputlen) Or txt = Mid("temple of lythantos", 1, nputlen) Then
            MainProgram.User_Temple = "Lythantos"
            MainProgram.User_TempleRank = "Follower"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay Lythantos' magic light your path, and illuminate good fortune./G" + Chr(34))
            MainProgram.State = "PreIntroduction"
        ElseIf txt = Mid("dekkashraen", 1, nputlen) Or txt = Mid("temple of dekkashraen", 1, nputlen) Then
            MainProgram.User_Temple = "Dekkashraen"
            MainProgram.User_TempleRank = "Follower"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay the power of Dekkashraen protect you in your ventures./G" + Chr(34))
            MainProgram.State = "PreIntroduction"
        ElseIf txt = Mid("ettphemone", 1, nputlen) Or txt = Mid("temple of ettphemone", 1, nputlen) Then
            MainProgram.User_Temple = "Ettphemone"
            MainProgram.User_TempleRank = "Follower"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay Ettphemones grace embrace you and protect your from harm./G" + Chr(34))
            MainProgram.State = "PreIntroduction"
        ElseIf txt = Mid("goad", 1, nputlen) Or txt = Mid("temple of goad", 1, nputlen) Then
            MainProgram.User_Temple = "Goad"
            MainProgram.User_TempleRank = "Follower"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gMay Goad bring you great fortune./G" + Chr(34))
            MainProgram.State = "PreIntroduction"
        ElseIf txt = Mid("none", 1, nputlen) Or txt = Mid("no temple", 1, nputlen) Then
            MainProgram.User_Temple = "None"
            MainProgram.User_TempleRank = "None"
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gA man of no faith has no strings holding him back./G" + Chr(34))
            MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gI wish you great luck./G" + Chr(34))
            MainProgram.State = "PreIntroduction"
        End If
    End Sub
    Public Sub ShowLoginProvince(ByVal txt As String, ByVal nputlen As Short)
        MainProgram.SND("/wThe skinny old man - /G" + Chr(34) + "/gWhich province do you hail from?/G" + Chr(34))
        MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
        MainProgram.SND("/z Info")
        MainProgram.SND("/z    The above command will display the province list")
        MainProgram.SND("/z Info TheProvince")
        MainProgram.SND("/z    The above command will give information on a specific province.")
        MainProgram.SND("/c[Rnk][/GTharsis/c]  [/GCrecia/c] [/GNarsis/c]   [/GNew Saellem/c] [/GJewall/c]    [Salary/Day][Lvl]")
        MainProgram.SND("/c 1    Scout      Guard    Underling  Phalangite    Bestiarii   10 Vern/Day 0")
        MainProgram.SND("/c 2    Wood Guard Sentry   Blood gua. Hoplite       Dimachaeri  15 Vern/Day 15")
        MainProgram.SND("/c 3    Wood Capt. Public  Bone Guar. Hoplomachos   Mirmillones 20 Vern/Day 30")
        MainProgram.SND("/c 4    Stone Gua. Captain  Blood Fie. Lokhagos      Retiarii    25 Vern/Day 45")
        MainProgram.SND("/c 5    Stone Cap. Lieuten. Bone Fiend Tagmatarkhis  Saggitarii  30 Vern/Day 60")
        MainProgram.SND("/c 6    Senior Ca. Sargent  Fleshmong. Syntagma      Velite      35 Vern/Day 75")
        MainProgram.SND("/c 7    Admiral    Corporal Dread Lor. Taxiarchos    Essedari    40 Vern/Day 90")
        MainProgram.SND("/c 8    Commander  General  Overlord   Strategos     Andabatae   45 Vern/Day 100")
        MainProgram.SND(" ")
        MainProgram.SND("/c  Rank 1 Benefits: Barracks Bed, Free Food")
        MainProgram.SND("/c  Rank 2 Benefits: Barracks Bed, Free Food, Storage Chest")
        MainProgram.SND("/c  Rank 3 Benefits: Barracks Bed, Free Food, Storage Chest, Personal Office")
        MainProgram.SND("/c  Rank 4 Benefits: Public Quarters, Free Food, Storage Chest, Personal Office")
        MainProgram.SND("/c  Rank 5 Benefits: Public Quarters, Free Food, Storage Chest, Personal Office, Mount")
        MainProgram.SND("/c  Rank 6 Benefits: 1 Room House, Free Food, Storage Chest, Personal Office, Mount")
        MainProgram.SND("/c  Rank 7 Benefits: 3 Room house, Free Food, Storage Chest, Personal Office, Mount")
        MainProgram.SND("/c  Rank 8 Benefits: 5 Room House, Free Food, Storage Chest, Personal Office, Mount")
        MainProgram.State = "LoginProvince"
    End Sub
    Public Sub ShowLoginRode(ByVal txt As String, ByVal nputlen As Short)
        MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
        MainProgram.SND("/z  Info")
        MainProgram.SND("/z     The above command will display the rode list")
        MainProgram.SND("/z  Info TheRode")
        MainProgram.SND("/z     The above command will give information on a specific rode.")
        MainProgram.SND("/c  [Rode]                [Affects]")
        MainProgram.SND("/c  Rode of /GProtection/c    +DEF, +AC, -Damage Taken")
        MainProgram.SND("/c  Rode of /GDestruction/c   +Skill Power, +Spell Power, +Damage Dealt")
        MainProgram.SND("/c  Rode of /GAgility/c       +Dodge, +Evade, +Parry, +Counter")
        MainProgram.SND("/c  Rode of /GBetrayal/c      +Stamina, +Dexterity, -Influence")
        MainProgram.SND("/c  Rode of /GRighteousness/c +Constitution, +Willpower")
        MainProgram.SND("/c  Rode of /GKnowledge/c     +Intelligence, +Spellpower")
        MainProgram.SND("/c  Rode of /GPeacefulness/c  +Presence, +Influence")
        MainProgram.SND("/c  Rode of /GWisdom/c        +Wisdom, +Influence")
        MainProgram.SND("/c  Rode of /GPower/c         +Skill Power, +Strength, +Damage Dealt")
        MainProgram.SND("/c  Rode of /GChance/c        +Saving throw on all failures")
        MainProgram.SND("/c  Rode of /GFaith/c         +Heal Power, +Regeneration")
        MainProgram.SND("/c  Rode of /GDetermination/c +Constituion, HP&WP&SP have to be 0 to die")
        MainProgram.SND("/c  Rode of /GCognition/c     +Intelligence, +Charisma, +Influence, -Wisdom")
        MainProgram.State = "LoginRode"
    End Sub
    Public Sub ShowLoginTemple(ByVal txt As String, ByVal nputlen As Short)
        MainProgram.SND("/c[Options are indicated in /GGreen/c.]")
        MainProgram.SND("/z Info")
        MainProgram.SND("/z    The above command will display the temple list")
        MainProgram.SND("/z Info TheTemple")
        MainProgram.SND("/z    The above command will give information on a specific temple.")
        MainProgram.SND("/c /c[Temple]/c               [Short Description]")
        MainProgram.SND("/c Temple of /GLythantos/c   The god of magic and neutrality. Created the sentient races and Ancients.")
        MainProgram.SND("/c Temple of /GDekkashraen/c The god of war and creater of non-sentient magical creatures.")
        MainProgram.SND("/c Temple of /GEttphemone/c  The goddess of creation, formed Urd, wife of Lythantos.")
        MainProgram.SND("/c Temple of /GGoad/c        Gnomish god of good fortune. Considered pagan.")
        MainProgram.SND("/c           /GNone/c        The lesser majority of Urd joins no temple.")
        MainProgram.State = "LoginTemple"
    End Sub
End Module
